Những câu hỏi liên quan
spiderman
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 21:53

Program HOC24;

var s,a,b: string;

begin

wirte('Nhap xau S:' ); readln(s);

for i:=1 to length(s) do

if s[i] in ['A'..'z'] then a:=a+s[i] else if s[i] in ['0'..'9'] then b:=b+s[i];

writeln('Xau A: ',a);

write('Xau B : ',b);

readln

end.

Bình luận (0)
Lily
Xem chi tiết
Phía sau một cô gái
23 tháng 3 2023 lúc 19:35

xau = input('Nhập xâu kí tự: ')

chu_cai, chu_so, ki_tu_khac = 0, 0, 0

for kt in xau:

      if kt.isalpha():

            chu_cai += 1

      elif kt.isdigit():

            chu_so += 1

      else:

            ki_tu_khac += 1

print('Số lượng kí tự chữ cái:', chu_cai)

print('Số lượng kí tự chữ số:', chu_so)

print('Số lượng kí tự khác:', ki_tu_khac)

Bình luận (0)
nguyễn linh
Xem chi tiết
Long ca ca
Xem chi tiết
Long ca ca
20 tháng 8 2023 lúc 19:18

Làm bằng pascal nha

 

Bình luận (0)
Lan Anh
Xem chi tiết
Long Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:37

uses crt;

var a,b:string;

i,d:integer;

begin

clrscr;

write('Nhap xau a:'); readln(a);

d:=length(a);

b:=''

for i:=1 to d do 

  if a[i] in ['A'..'Z'] then b:=b+a[i];

writeln(b);

readln;

end.

Bình luận (0)
Long ca ca
Xem chi tiết
Phía sau một cô gái
21 tháng 8 2023 lúc 20:49

program XoaSoLienTuc;

uses sysutils;

function XoaSoLienTuc(S: string): string;

var

     i: integer;

     result: string;

begin

     result := ''

     for i := 1 to Length(S) do

     begin

          if not (S[i] in ['0'..'9']) then

          begin

               if (i = 1) or (S[i-1] in ['0'..'9']) then

                    result := result + ' '

               result := result + S[i];

          end;

     end;

     result := Trim(result);

     result := StringReplace(result, ' ', '', [rfReplaceAll]);

     XoaSoLienTuc := result;

end;

var

     S: string;

begin

     write('Nhập vào xâu S: ');

     readln(S);

     writeln('Kết quả: ', XoaSoLienTuc(S));

end.

Bình luận (1)
Nguyễn Vy
Xem chi tiết
Minh Lệ
10 tháng 5 2021 lúc 0:49

Program HOC24;

var s: string;

begin

write('Nhap xau: '); readln(s);

write('Xau sau khi loc: ');

for i:=1 to length(s) do

if s[i] in ['A'..'z'] then write(s[i]);

readln

end.

Bình luận (0)
Ánh Nguyệt Thiên Vĩ
Xem chi tiết